(calendar-two-frame-setup, calendar-only-one-frame-setup)

(calendar-one-frame-setup): Use display-multi-frame-p instead of window-system.

diff --git a/lisp/calendar/cal-x.el b/lisp/calendar/cal-x.el
index 7151671d7224680890db0d304b33f69ed6086c6b..3dae0e9c05b7171932950f9e43f1d787d9631cbd 100644 (file)
--- a/lisp/calendar/cal-x.el
+++ b/lisp/calendar/cal-x.el
@@ -70,7 +70,7 @@ Can be used to change frame parameters, such as font, color, location, etc.")
   
 (defun calendar-one-frame-setup (&optional arg)
   "Start calendar and display it in a dedicated frame together with the diary."
-  (if (not window-system)
+  (if (not (display-multi-frame-p))
       (calendar-basic-setup arg)
     (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
     (if (frame-live-p diary-frame) (delete-frame diary-frame))
@@ -98,7 +98,7 @@ Can be used to change frame parameters, such as font, color, location, etc.")
 
 (defun calendar-only-one-frame-setup (&optional arg)
   "Start calendar and display it in a dedicated frame."
-  (if (not window-system)
+  (if (not (display-multi-frame-p))
       (calendar-basic-setup arg)
     (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
     (let ((special-display-buffer-names nil)
@@ -117,7 +117,7 @@ Can be used to change frame parameters, such as font, color, location, etc.")
 
 (defun calendar-two-frame-setup (&optional arg)
   "Start calendar and diary in separate, dedicated frames."
-  (if (not window-system)
+  (if (not (display-multi-frame-p))
       (calendar-basic-setup arg)
     (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
     (if (frame-live-p diary-frame) (delete-frame diary-frame))